home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-seriously_amiga-
/
shareware
/
programming
/
mui
/
mcc_monthnavigator
/
developer
/
modula
/
txt
/
mccmonthnavigator.def
next >
Wrap
Text File
|
1997-12-06
|
2KB
|
72 lines
DEFINITION MODULE MCCMonthNavigator;
(*
**
** Copyright © 1996-1997 Kai Hofmann. All rights reserved.
** Registered MUI custom class!
**
** $VER: MCCMonthNavigator.def 16.5 (21.08.97)
**
** M2 interface model by Olaf Peters <olf@informatik.uni-bremen.de>
**
*)
FROM SYSTEM IMPORT ADDRESS,BYTE;
FROM UtilityD IMPORT TagItemPtr;
CONST
mcMonthNavigator = "MonthNavigator.mcc";
maMonthNavigatorShowWeekdayNames = 81EE0005H;
maMonthNavigatorShowWeekNumbers = 81EE0006H;
maMonthNavigatorInput = 81EE0009H;
maMonthNavigatorUseFrames = 81EE000AH;
maMonthNavigatorShowInvisibles = 81EE000BH;
maMonthNavigatorWeekdayNamesSpacing = 81EE000CH;
maMonthNavigatorWeekNumbersSpacing = 81EE000DH;
maMonthNavigatorLineWeekdayNames = 81EE000EH;
maMonthNavigatorLineWeekNumbers = 81EE000FH;
maMonthNavigatorDraggable = 81EE0012H;
maMonthNavigatorMarkHook = 81EE0013H;
maMonthNavigatorDropable = 81EE0014H;
maMonthNavigatorDragQueryHook = 81EE0015H;
maMonthNavigatorDragDropHook = 81EE0016H;
maMonthNavigatorShowLastMonthDays = 81EE0017H;
maMonthNavigatorShowNextMonthDays = 81EE0018H;
mmMonthNavigatorUpdate = 81EE0010H;
mvMonthNavigatorInputModeNone = 0;
mvMonthNavigatorInputModeRelVerify = 1;
mvMonthNavigatorInputModeImmediate = 2;
mvMonthNavigatorMarkHookHiToday = 1;
mvMonthNavigatorMarkDayVersion = 1;
TYPE
mpMonthNavigatorUpdate =
RECORD
MethodID : LONGCARD;
END;
msMonthNavigatorMarkDay =
RECORD
Version : LONGCARD;
Year : LONGINT;
Month : SHORTCARD;
Day : SHORTCARD;
PreParse : POINTER TO CHAR;
Background : LONGCARD;
ShortHelp : POINTER TO CHAR;
Disabled : BOOLEAN;
END;
PROCEDURE MonthNavigatorObject(tags : TagItemPtr) : ADDRESS;
END MCCMonthNavigator.